Attribute VB_Name = "Module1"
Sub Main()

    '2013-04-08 by songchunming
    'single
    Dim server As New TestDate
    Dim Upan As Boolean
    Load WaitForm
    WaitForm.Show 0
    DoEvents
    Upan = server.Conn_test("ClientDataAccesser", "mobi@20120510")
    Unload WaitForm
    DoEvents
    Frm_Main.Upan = Upan
    If Upan = True Then
        RegisterModule.DelRegister
    End If
    
     'temp = FileDialog.Open_Comdlg32
    MyENA.InitENA
    Load Frm_Main
    Frm_Main.Show 0
    'show about dialoge
    Frm_About.Show 0
    Frm_About.Enabled = False
    Dim ST As Single
    Dim ET As Single
    ST = Timer
    ET = Timer
    While (ET - ST < 2)
          ET = Timer
          DoEvents
    Wend
        Unload Frm_About
        DoEvents
        
End Sub
